home *** CD-ROM | disk | FTP | other *** search
/ Mac100% 1999 April / MAC100-1999-04.ISO.7z / MAC100-1999-04.ISO / ｵﾝﾗｲﾝｿﾌﾄ定点観測 / Network / Jnifty Auto b10.sit / Jnifty Auto b10 / Login Script < prev    next >
Text File  |  1999-01-31  |  32KB  |  1,913 lines
  1. ************************
  2. * Jnifty by Ko Tsuneta *
  3. ************************
  4. ****************
  5. * Main Routine *
  6. ****************
  7. ***** Get Date *****
  8.     date:$date$:
  9.     set:#predate#:2$date$
  10.     sub:#predate#:1
  11.     strext:$str$:6:7:#predate#
  12.     if:04:$str$<>00
  13.     strext:$str$:4:7:#predate#
  14.     if:03:$str$==0100
  15.     strwhere:#num#:0[24689]00:$str$
  16.     if:02:#num#==1
  17.     if:02:$str$==1100
  18.     if:01:$str$<>0300
  19.     strext:$str$:1:4:#predate#
  20.     set:#num#:$str$
  21.     mod:#num#:4
  22.     if:00:#num#==0
  23.     sub:#predate#:72
  24.     j:04
  25. 00:
  26.     sub:#predate#:71
  27.     j:04
  28. 01:
  29.     sub:#predate#:70
  30.     j:04
  31. 02:
  32.     sub:#predate#:69
  33.     j:04
  34. 03:
  35.     sub:#predate#:8869
  36. 04:
  37.     strext:$predate$:2:8:#predate#
  38. ***** Maintenance? *****
  39.     date:$logdate$:/
  40.     time:$time$:/
  41.     week:#num#
  42.     if:10:#num#<>4
  43.     strext:$str$:5:6:$date$
  44.     set:#num#:$str$
  45.     if:10:#num#<<15
  46.     if:10:#num#>>21
  47.     strext:$str$:1:2:$time$
  48.     set:#num#:$str$
  49.     if:10:#num#<<01
  50.     if:10:#num#>>07
  51.     m:メンテナンス中です
  52.     j:981
  53. ***** Where? *****
  54. 10:
  55.     set:#go#:1
  56.     exist:11:SCRIPT:BBS.aps
  57.     sub:#go#:1
  58. 11:
  59.     firstfile:$fname$:POST:¥^BBS
  60.     if:12:$fname$==
  61.     add:#go#:2
  62. 12:
  63.     exist:13:SCRIPT:PATIOPR.aps
  64.     j:14
  65. 13:
  66.     add:#go#:4
  67. 14:
  68.     firstfile:$fname$:POST:¥^PATIOPR
  69.     if:15:$fname$==
  70.     add:#go#:8
  71. 15:
  72.     exist:16:SCRIPT:MES.aps
  73.     j:17
  74. 16:
  75.     add:#go#:16
  76. 17:
  77.     exist:18:SCRIPT:WSEA.aps
  78.     j:19
  79. 18:
  80.     add:#go#:32
  81. 19:
  82.     exist:20:SCRIPT:SEArch.aps
  83.     j:21
  84. 20:
  85.     add:#go#:64
  86. 21:
  87.     exist:22:SCRIPT:DownList.lib
  88.     j:23
  89. 22:
  90.     add:#go#:128
  91. 23:
  92.     firstfile:$fname$:POST:¥^[¥^_@]*[A-Z][0-9]?[0-9]?[0-9]?[0-9]?-
  93.     if:24:$fname$==
  94.     add:#go#:256
  95. 24:
  96.     exist:25:SCRIPT:PATIO.aps
  97.     j:70
  98. 25:
  99.     add:#go#:512
  100. ***** Setting *****
  101. 70:
  102.     exist:71:SCRIPT:SETTING.aps
  103.     m:SETTING.apsが見つかりません
  104.     j:981
  105. 71:
  106.     fopen:#setref#:SCRIPT:SETTING.aps
  107.     fread:#setref#:$line$
  108.     strwhere:#num#:/:$line$
  109.     if:73:#num#<>1
  110.     strext:$id$:2:9:$line$
  111.     strwhere:#num#:$id$:$i$
  112.     if:74:#num#==0
  113.     add:#num#:8
  114.     div:#num#:9
  115.     nthstr2: :$pw$:#num#:$p$
  116.     gosub:1003
  117.     if:73:$temset$<>DIAL
  118.     strmatch:$temset$:[0-9]+:$line$
  119.     set:#dial#:$temset$
  120.     if:73:#dial#>>9
  121.     set:$set$:
  122.     gosub:1003
  123.     if:73:$temset$<>DLM
  124.     gosub:1000
  125.     if:73:$temset$<>TERMINAL
  126.     gosub:1000
  127.     if:73:$temset$<>TEXTMAIL
  128.     nthstr:$mailset$:2:$line$
  129.     gosub:1003
  130.     if:73:$temset$<>BINARYMAIL
  131.     gosub:1000
  132.     if:73:$temset$<>DELETEMAIL
  133.     gosub:1000
  134.     if:73:$temset$<>SENDMAIL
  135.     gosub:1000
  136.     if:73:$temset$<>FORUMOPT
  137.     gosub:1000
  138.     if:73:$temset$<>MES
  139.     gosub:1000
  140.     if:73:$temset$<>LIB
  141.     gosub:1000
  142.     if:73:$temset$<>COMMENT
  143.     gosub:1000
  144.     if:73:$temset$<>BILL
  145.     nthstr:$temset$:2:$line$
  146.     nthstr2:¥r:$temset$:1:$temset$
  147.     set:$set$:$set$-$temset$
  148.     gosub:1003
  149.     if:73:$temset$<>LOGALL
  150.     gosub:1000
  151.     if:73:$temset$<>LOGTIME
  152.     gosub:1000
  153.     if:73:$temset$<>LOGCUT
  154.     gosub:1000
  155.     if:73:$temset$<>QUIT
  156.     nthstr:$temset$:2:$line$
  157.     if:72:$temset$==ON^m
  158.     set:$set$:$set$-0
  159.     j:80
  160. 72:
  161.     set:$set$:$set$-1
  162.     j:80
  163. 73:
  164.     m:SETTING.apsのフォーマットが正しくありません
  165.     j:980
  166. 74:
  167.     m:SETTING.apsにあるIDが見つかりません
  168.     j:980
  169. ***** Login *****
  170. 80:
  171.     exist:81:POST:__visited__forums__list__
  172.     create:JEDT:TEXT:POST:__visited__forums__list__
  173. 81:
  174.     fopen:#vflref#:POST:__visited__forums__list__
  175.     fwrite:#vflref#:^m
  176.     set:$mainset$:$set$
  177.     set:#times#:0
  178.     if:90:#dial#==9
  179.     dial:90:#dial#
  180.     m:回線が混雑しているようです
  181.     j:980
  182. 90:
  183.     if:98:#times#>>2
  184.     t:91:5:Connection-ID|92:*|93:Login
  185.     s:^h^h
  186.     j:95
  187. 91:
  188.     gosub:1090
  189.     strwhere:#num#:¥¥::$line$
  190.     if:93:#num#<>0
  191.     add:#times#:1
  192.     s:@P^m
  193.     t:94:5:*
  194. 92:
  195.     s:C NIF
  196.     j:94
  197. 93:
  198.     s:NIFTY^m
  199.     r:Password|95:Connection-ID
  200. 94:
  201.     s:^m
  202.     t:96:5:Connection-ID|97:User-ID|98:Clear|99:Password|92:*|93:Login
  203. 95:
  204.     s:SVC
  205.     j:94
  206. 96:
  207.     if:90:#dial#<>9
  208.     closeport:
  209.     openport:
  210.     d:7
  211.     j:90
  212. 97:
  213.     s:$id$
  214.     j:94
  215. 98:
  216.     m:何らかの理由で接続できなかったようです
  217.     j:980
  218. 99:
  219.     clock:reset
  220.     clock:on
  221.     line:#logstart#
  222.     add:#logstart#:2
  223.     s:$pw$^m
  224.     ftype:m
  225.     set:#sendmexp#:0
  226.     set:$mailstate$:0
  227.     set:$waitt$:^j題名 (漢字で20文字まで)^m
  228.     set:$waitr$::0−^m^j−この会議室はリードオンリーです−^m^jCCS(
  229.     r:^j只今の時間|100:す（未読分|120:^j＞
  230.     j:980
  231. ***** Recive Mail *****
  232. 100:
  233.     gosub:1090
  234.     if:100:$line$<>＞
  235.     gosub:1010
  236.     if:101:$mailset$==ON^m
  237.     if:110:$mailset$<>NEW^m
  238. 101:
  239.     gosub:1020
  240.     s:REAd NEW^m
  241.     nthstr:$temset$:5:$set$
  242. 102:
  243.     r:action:|110:^jMAIL>
  244.     gosub:1090
  245.     if:102:$line$<>action:
  246.     if:103:$temset$==0
  247.     s:*^hDELete^m
  248.     j:102
  249. 103:
  250.     s:*^hSAVe^m
  251.     j:102
  252. 110:
  253.     nthstr:$temset$:4:$set$
  254.     if:130:$temset$==0
  255.     if:111:$temset$==$mailstate$
  256.     gosub:1020
  257. 111:
  258.     line:#start#
  259.     s:LISt^m
  260.     add:#start#:2
  261.     r:^jMAIL>
  262.     line:#end#
  263.     sub:#end#:1
  264.     if:112:$mailstate$==1
  265.     sub:#end#:1
  266. 112:
  267.     while:#end#>>#start#
  268.     getline:$line$:#end#
  269.     set:$line$:$line$^m
  270.     strwhere:#num#:¥^ +[0-9]+ +.+[01][0-9]/[0-3][0-9] [ F]B :$line$
  271.     if:113:$mailstate$<>2
  272.     strwhere:#num#:B [-F] - -  [0-9A-Z]+¥¥r:$line$
  273. 113:
  274.     if:115:#num#==0
  275.     strmatch:$str$:[0-9A-Z]+¥¥r:$line$
  276.     s:DOWn PROT:BPL $str$
  277.     r:^j：
  278.     s:$str$
  279.     r:開始−^m^j
  280.     d:2
  281.     dlBplus:
  282.     r:^j：
  283.     nthstr:$temset$:5:$set$
  284.     if:114:$temset$==0
  285.     s:1^m
  286.     r:^jMAIL>
  287.     j:115
  288. 114:
  289.     s:2^m
  290.     r:^jMAIL>
  291. 115:
  292.     sub:#end#:1
  293.     if:116:$mailstate$==1
  294.     sub:#end#:1
  295. 116:
  296.     wend:
  297.     j:130
  298. ***** Read Announce *****
  299. 120:
  300.     gosub:1091
  301.     strwhere:#num#:トップメニュー):$line$
  302.     gosub:1010
  303.     if:130:#num#==0
  304.     firstfile:$fname$:POST:¥^NEW
  305.     if:130:$fname$==
  306. 121:
  307.     strext:$line$:4:31:$fname$
  308.     s:$line$
  309.     rename:POST:$fname$:_NEW
  310.     if:123:#err#==0
  311.     set:#usnum#:0
  312. 122:
  313.     add:#usnum#:1
  314.     rename:POST:$fname$:_#usnum#_NEW
  315.     if:122:#err#<>0
  316. 123:
  317.     s:^m
  318.     r:終了^m^j＞|123:終了)^m^j＞|130:^j＞
  319. ***** Send Mail *****
  320. 130:
  321.     nthstr:$temset$:6:$set$
  322.     if:160:$temset$==0
  323. 131:
  324.     firstfile:$fname$:POST:¥^MAIL
  325.     if:160:$fname$==
  326.     fopen:#mesref#:POST:$fname$
  327.     fread:#mesref#:$mesline$
  328.     if:132:$mesline$<>#!MEXP^m
  329.     fread:#mesref#:$mesline$
  330.     if:132:#sendmexp#==2
  331.     set:#sendmexp#:1
  332. 132:
  333.     strwhere:#num#:#!FN:$mesline$
  334.     if:140:#num#==1
  335.     strwhere:#num#:TO:$mesline$
  336.     if:133:#num#==1
  337.     fclose:#mesref#
  338.     set:$us$:_?
  339.     gosub:2700
  340.     j:131
  341. 133:
  342.     gosub:1300
  343.     j:131
  344. 140:
  345.     strext:$upfname$:5:99:$mesline$
  346.     strwhere:#num#:B¥¥::$upfname$
  347.     if:141:#num#<>1
  348.     strext:$upfname$:3:99:$upfname$
  349.     ftype:b
  350. 141:
  351.     nthstr2:¥r:$upfname$:1:$upfname$
  352.     exist:142:$upfname$
  353.     fclose:#mesref#
  354.     set:$us$:_?
  355.     gosub:2700
  356.     j:131
  357. 142:
  358.     set:$title$:untitled^m
  359.     fread:#mesref#:$mesline$
  360.     strwhere:#num#:#!TT:$mesline$
  361.     if:144:#num#<>1
  362.     strlen:#length#:$mesline$
  363.     if:143:#length#<<6
  364.     strext:$title$:5:99:$mesline$
  365. 143:
  366.     fread:#mesref#:$mesline$
  367. 144:
  368.     strwhere:#num#:TO:$mesline$
  369.     if:150:#num#==1
  370.     fclose:#mesref#
  371.     set:$us$:_?
  372.     gosub:2700
  373.     j:131
  374. 150:
  375.     gosub:1300
  376.     if:131:$mailto$==$id$
  377.     s:UPLoad TYPE:BIN PROT:BPL^m
  378.     gosub:2100
  379.     t:151:10:：
  380.     line:#num#
  381.     sub:#num#:3
  382.     getline:$line$:#num#
  383.     strwhere:#num#:−アップロード終了−:$line$
  384.     if:152:#num#==1
  385.     m:^m：^m：
  386.     j:152
  387. 151:
  388.     m:−アップロード終了−^mバイト受信しました^m題名 (漢字で20文字まで)^m：
  389. 152:
  390.     s:$title$
  391.     r:^j：
  392.     s:1^m
  393.     r:^j：
  394.     set:#times#:1
  395. 153:
  396.     nthstr2:,:$sendid$:#times#:$mailto$
  397.     add:#times#:1
  398.     strwhere:#num#:¥¥r:$sendid$
  399.     nthstr2:¥r:$sendid$:1:$sendid$
  400.     s:$sendid$^m
  401.     r:◆^m^j|155:^j：
  402. 154:
  403.     if:153:#num#==0
  404.     s:^m
  405.     r:^j：
  406. 155:
  407.     s:1^m
  408.     r:期日指定）^m^j：|131:^jMAIL>|154:^j：
  409.     j:155
  410. ***** Read Announce? *****
  411. 160:
  412.     firstfile:$fname$:POST:¥^NEW
  413.     if:170:$fname$==
  414.     s:GO NEW^m
  415.     r:^j＞
  416.     j:121
  417. ***** Mail to Center *****
  418. 170:
  419.     firstfile:$fname$:POST:¥^CENTER-1-
  420.     if:180:$fname$==
  421.     s:GO SUPPORT^m
  422.     r:^j＞
  423.     s:4^m
  424.     r:^j＞
  425. 171:
  426.     s:1^m
  427.     r:^j＞
  428.     s:1^m
  429.     fopen:#mesref#:POST:$fname$
  430.     r:行頭で/E）^m^j
  431.     gosub:2000
  432.     r:$waitt$|172:^j＞
  433.     gosub:1080
  434.     r:^j＞
  435. 172:
  436.     firstfile:$fname$:POST:¥^CENTER-1-
  437.     if:171:$fname$<>
  438. ***** POSPE MACRO *****
  439. 180:
  440.     isexternal:#num#
  441.     if:200:#num#==2
  442.     if:190:$mailset$<>PET^m
  443.     exist:181:SCRIPT:ExPet.aps
  444.     j:190
  445. 181:
  446.     external:ExPet.aps
  447. ***** External Script *****
  448. 190:
  449.     firstfile:$fname$:SCRIPT:¥^Ex[¥^:]*.aps
  450. 191:
  451.     if:200:$fname$==
  452.     if:192:$fname$==ExPet.aps
  453.     strwhere:#num#:.aps[¥^¥¥:]:$fname$
  454.     if:192:#num#<>0
  455.     external:$fname$
  456. 192:
  457.     nextfile:$fname$
  458.     j:191
  459. ***** BBS *****
  460. 200:
  461.     if:900:#go#<<1
  462.     exist:201:SCRIPT:BBS.aps
  463.     j:210
  464. 201:
  465.     fopen:#refnum#:SCRIPT:BBS.aps
  466. 202:
  467.     fread:#refnum#:$bbsline$
  468.     if:205:#err#<>0
  469.     if:205:$bbsline$==/END^m
  470.     gosub:1030
  471.     if:202:$bbsline$==FAIL
  472.     s:SCAn DATE:
  473.     nthstr:$bbs$:2:$bbsline$
  474.     if:203:$bbs$<>Y
  475.     s:$predate$
  476.     j:204
  477. 203:
  478.     s:$date$
  479. 204:
  480.     s:^m
  481.     r:^j＞|204:^j：|202:^jBBS>
  482.     nthstr:$bbs$:3:$bbsline$
  483.     if:202:$bbs$<>R
  484.     gosub:1040
  485.     j:202
  486. 205:
  487.     fclose:#refnum#
  488. 210:
  489.     if:900:#go#<<2
  490. 211:
  491.     firstfile:$fname$:POST:¥^BBS[0-9]
  492.     if:220:$fname$==
  493.     fopen:#refnum#:POST:$fname$
  494.     fread:#refnum#:$bbsline$
  495.     gosub:1030
  496.     if:214:$bbsline$==FAIL
  497.     fread:#refnum#:$bbsline$
  498.     fclose:#refnum#
  499.     set:$us$:_
  500.     gosub:2700
  501.     strmatch:$bbsid$:[A-Z][A-Z][A-Z][0-9][0-9][0-9][0-9][0-9]:$bbsline$
  502.     strext:$year$:1:2:$date$
  503.     strmatch:$day$:[ 1][0-9]/[0-3][0-9]:$bbsline$
  504.     strmatch:$month$:[0-9]+:$day$
  505.     strlen:#num#:$month$
  506.     if:212:#num#>>1
  507.     set:$month$:0$month$
  508. 212:
  509.     strext:$day$:4:5:$day$
  510.     s:SCAn DATE:$year$$month$$day$^m
  511.     r:^j：|211:^jBBS>
  512.     s:$bbsid$
  513. 213:
  514.     s:^m
  515.     r:^j＞|213:^j：|211:^jBBS>
  516.     gosub:1040
  517.     j:211
  518. 214:
  519.     fclose:#refnum#
  520.     set:$us$:_?
  521.     gosub:2700
  522.     j:211
  523. 220:
  524.     if:900:#go#<<4
  525.     exist:221:SCRIPT:PATIOPR.aps
  526.     j:230
  527. 221:
  528.     fopen:#refnum#:SCRIPT:PATIOPR.aps
  529. 222:
  530.     fread:#refnum#:$bbsline$
  531.     if:225:#err#<>0
  532.     if:225:$bbsline$==/END^m
  533.     strmatch:$bbs$:¥^[2-7]:$bbsline$
  534.     if:222:$bbs$==
  535.     s:GO PATIOPR^m
  536.     r:^j＞
  537.     s:$bbs$^m
  538.     r:^jBBS>
  539.     s:SCAn DATE:
  540.     nthstr:$bbs$:2:$bbsline$
  541.     if:223:$bbs$<>Y
  542.     s:$predate$
  543.     j:224
  544. 223:
  545.     s:$date$
  546. 224:
  547.     s:^m
  548.     r:^j＞|224:^j：|222:^jBBS>
  549.     nthstr:$bbs$:3:$bbsline$
  550.     if:222:$bbs$<>R
  551.     gosub:1040
  552.     j:222
  553. 225:
  554.     fclose:#refnum#
  555. 230:
  556.     if:900:#go#<<8
  557. 231:
  558.     firstfile:$fname$:POST:¥^PATIOPR[0-9]
  559.     if:300:$fname$==
  560.     fopen:#refnum#:POST:$fname$
  561.     fread:#refnum#:$bbsline$
  562.     strmatch:$bbs$:¥^[2-7]:$bbsline$
  563.     if:234:$bbs$==
  564.     s:GO PATIOPR^m
  565.     r:^j＞
  566.     s:$bbs$^m
  567.     r:^jBBS>
  568.     fread:#refnum#:$bbsline$
  569.     fclose:#refnum#
  570.     set:$us$:_
  571.     gosub:2700
  572.     strmatch:$bbsid$:[A-Z][A-Z][A-Z][0-9][0-9][0-9][0-9][0-9]:$bbsline$
  573.     strext:$year$:1:2:$date$
  574.     strmatch:$day$:[ 1][0-9]/[0-3][0-9]:$bbsline$
  575.     strmatch:$month$:[0-9]+:$day$
  576.     strlen:#num#:$month$
  577.     if:232:#num#>>1
  578.     set:$month$:0$month$
  579. 232:
  580.     strext:$day$:4:5:$day$
  581.     s:SCAn DATE:$year$$month$$day$^m
  582.     r:^j：|231:^jBBS>
  583.     s:$bbsid$
  584. 233:
  585.     s:^m
  586.     r:^j＞|233:^j：|231:^jBBS>
  587.     gosub:1040
  588.     j:231
  589. 234:
  590.     fclose:#refnum#
  591.     set:$us$:_?
  592.     gosub:2700
  593.     j:231
  594. ***** Forum *****
  595. 300:
  596.     if:900:#go#<<16
  597.     exist:301:SCRIPT:MES.aps
  598.     j:330
  599. 301:
  600.     fopen:#refnum#:SCRIPT:MES.aps
  601. 302:
  602.     fread:#refnum#:$roomline$
  603.     if:322:#err#<>0
  604.     if:322:$roomline$==/END^m
  605.     nthstr2:¥r:$forum$:1:$roomline$
  606.     fread:#refnum#:$roomline$
  607.     nthstr2:¥r:$roomline$:1:$roomline$
  608.     gosub:1060
  609.     if:302:$forum$==FAIL
  610.     exist:303:SCRIPT:WSEA.aps
  611.     j:306
  612. 303:
  613.     fopen:#wsearef#:SCRIPT:WSEA.aps
  614. 304:
  615.     fread:#wsearef#:$wsealine$
  616.     if:305:#err#<>0
  617.     if:304:$wsealine$<>¥¥m$forum$^m
  618.     gosub:2400
  619. 305:
  620.     fclose:#wsearef#
  621. 306:
  622.     gosub:1100
  623.     nthstr2:/:$room$:1:$roomline$
  624.     if:320:$room$==
  625.     if:313:#roomon#==2
  626.     strmatch:$temroom$:[0-9]+:$room$
  627.     if:310:$temroom$<>
  628.     set:$temroom$:1
  629. 310:
  630.     nthstr:$temset$:8:$set$
  631.     if:311:$temset$==0
  632.     if:311:#roomon#==1
  633.     s:MES^m
  634.     r:^j＞|321:^jFORUM>
  635. 311:
  636.     s:MES $temroom$^m
  637.     set:#roomon#:2
  638.     strwhere:#num#:[Aa,-]:$room$
  639.     r:$waitr$|312::0−^m^jCCS(|313:^j＞|321:^jFORUM>|313:^jCCS(
  640. 312:
  641.     if:320:#num#==0
  642. 313:
  643.     s:MREad ROOM:$room$^m
  644. 314:
  645.     r:^h^m^jCCS(|320:^h^m^j＞|315:^jCCS(|315:^j＞
  646.     j:320
  647. 315:
  648.     silence:60
  649.     s2:
  650.     silence:9
  651.     gosub:1090
  652.     if:320:$line$==CCS(N)>
  653.     if:320:$line$==CCS(P)>
  654.     if:314:$line$<>＞
  655. 320:
  656.     gosub:1110
  657.     set:#num#:2
  658.     set:$title$:RMN
  659.     gosub:2600
  660.     set:#num#:3
  661.     set:$title$:RTN
  662.     gosub:2600
  663. 321:
  664.     gosub:1120
  665.     gosub:1130
  666.     gosub:1140
  667.     j:302
  668. 322:
  669.     fclose:#refnum#
  670. 330:
  671.     if:900:#go#<<32
  672.     exist:331:SCRIPT:WSEA.aps
  673.     j:340
  674. 331:
  675.     fopen:#wsearef#:SCRIPT:WSEA.aps
  676. 332:
  677.     fread:#wsearef#:$wsealine$
  678.     if:333:#err#<>0
  679.     if:333:$wsealine$==/END^m
  680.     set:$line$:$wsealine$
  681.     gosub:1050
  682.     if:332:$forum$==FAIL
  683.     gosub:2400
  684.     gosub:1100
  685.     gosub:1110
  686.     gosub:1120
  687.     gosub:1130
  688.     gosub:1140
  689.     j:332
  690. 333:
  691.     fclose:#wsearef#
  692.     set:$fname$:WSEA.aps
  693.     gosub:2710
  694. 340:
  695.     if:900:#go#<<64
  696.     exist:341:SCRIPT:SEArch.aps
  697.     j:350
  698. 341:
  699.     fopen:#searef#:SCRIPT:SEArch.aps
  700. 342:
  701.     fread:#searef#:$sealine$
  702.     if:343:#err#<>0
  703.     if:343:$sealine$==/END^m
  704.     set:$line$:$sealine$
  705.     gosub:1050
  706.     if:342:$forum$==FAIL
  707.     gosub:2200
  708.     gosub:1130
  709.     gosub:1140
  710.     gosub:1100
  711.     gosub:1110
  712.     j:342
  713. 343:
  714.     fclose:#searef#
  715.     set:$fname$:SEArch.aps
  716.     gosub:2710
  717. 350:
  718.     if:900:#go#<<128
  719.     exist:351:SCRIPT:DownList.lib
  720.     j:360
  721. 351:
  722.     fopen:#downref#:SCRIPT:DownList.lib
  723. 352:
  724.     fread:#downref#:$downline$
  725.     if:354:#err#<>0
  726. 353:
  727.     set:$line$:$downline$
  728.     gosub:1050
  729.     if:352:$forum$==FAIL
  730.     gosub:2300
  731.     gosub:1140
  732.     gosub:1100
  733.     gosub:1110
  734.     if:353:$down$<>END
  735. 354:
  736.     fclose:#downref#
  737.     set:$fname$:DownList.lib
  738.     gosub:2710
  739. 360:
  740.     if:900:#go#<<256
  741. 361:
  742.     firstfile:$fname$:POST:¥^[¥^_@]*[A-Z][0-9]?[0-9]?[0-9]?[0-9]?-
  743.     if:400:$fname$==
  744.     nthstr:$temforum$:1:$fname$
  745.     nthstr:$room$:2:$fname$
  746.     if:364:$temforum$==$forum$
  747.     set:$forum$:$temforum$
  748.     gosub:1060
  749.     if:364:$forum$<>FAIL
  750. 362:
  751.     set:$us$:_?
  752.     gosub:2700
  753.     firstfile:$fname$:POST:¥^[¥^_@]*[A-Z][0-9]?[0-9]?[0-9]?[0-9]?-
  754. 363:
  755.     if:361:$fname$==
  756.     nthstr:$temforum$:1:$fname$
  757.     if:362:$temforum$==$forum$
  758.     nextfile:$fname$
  759.     j:363
  760. 364:
  761.     strwhere:#num#:LIB:$room$
  762.     if:367:#num#==1
  763.     strmatch:$str$:[0-9]+:$room$
  764.     set:#num#:$str$
  765.     if:365:#num#>>20
  766.     gosub:1400
  767.     j:361
  768. 365:
  769.     set:$readf$:$fname$
  770.     strext:$str$:1:1:$room$
  771.     strext:$room$:2:2:$room$
  772.     if:366:$str$==4
  773.     set:$room$:1$room$
  774.     if:366:$str$==5
  775.     set:$room$:20
  776. 366:
  777.     gosub:2500
  778.     j:361
  779. 367:
  780.     strext:$uplib$:4:5:$room$
  781.     gosub:1500
  782.     j:361
  783. ***** Patio *****
  784. 400:
  785.     if:900:#go#<<512
  786.     fopen:#patioref#:SCRIPT:PATIO.aps
  787. 401:
  788.     fread:#patioref#:$line$
  789.     if:499:#err#<>0
  790.     if:499:$line$==/END^m
  791.     if:401:$line$<>/$id$^m
  792.     set:#roomon#:0
  793.     set:$title$:
  794. 410:
  795.     fread:#patioref#:$line$
  796.     if:499:#err#<>0
  797.     if:499:$line$==/END^m
  798.     strwhere:#num#:/[A-Z][A-Z][A-Z][0-9][0-9][0-9][0-9][0-9]¥¥r:$line$
  799.     if:499:#num#==1
  800.     strmatch:$patioi$:¥^[A-Z][A-Z][A-Z][0-9][0-9][0-9][0-9][0-9]:$line$
  801.     if:411:$patioi$<>
  802.     strwhere:#num#:/R[MT]N¥¥r:$line$
  803.     if:410:#num#<>1
  804.     strext:$title$:2:5:$line$
  805.     j:410
  806. 411:
  807.     nthstr2: :$patiop$:2:$line$
  808.     nthstr2: :$patios$:3:$line$
  809.     if:412:#roomon#==1
  810.     if:413:#roomon#==2
  811.     s:DO PATIO/
  812.     set:#roomon#:1
  813. 412:
  814.     s:2^m
  815.     j:414
  816. 413:
  817.     s:MOVe^m
  818. 414:
  819.     r:^j：
  820.     s:$patioi$^m
  821.     gosub:1230
  822.     r:ワード^m^j：|410:−^m^j|415:^j：|416:^j＞
  823.     s:$patiop$^m
  824.     r:^j：|416:^j＞
  825. 415:
  826.     s:2^m
  827.     r:^j＞|410:^jPATIO(|415:^j：
  828.     j:410
  829. 416:
  830.     set:#roomon#:2
  831.     gosub:1091
  832.     strwhere:#mesnum#: 1 +[0-9]+ (   0)   [01][0-9]/[0-3][0-9]   :$line$
  833.     strwhere:#num#:/GUEst:$patios$
  834.     if:417:#num#==0
  835.     s:GUEst^m
  836.     r:^j＞
  837.     s:^m
  838.     r:^j＞
  839. 417:
  840.     if:430:$title$<>
  841.     if:420:#mesnum#==0
  842.     if:410:$fname$==
  843. 420:
  844.     gosub:1070
  845.     gosub:1600
  846.     line:#read#
  847.     add:#read#:2
  848.     s:MREad^m
  849. 421:
  850.     r:^h^m^jPATIO(|422:^jPATIO(
  851.     j:410
  852. 422:
  853.     line:#num#
  854.     if:410:#num#==#read#
  855.     nthstr:$temset$:2:$set$
  856.     if:421:$temset$==1
  857.     gosub:1090
  858.     if:410:$line$==PATIO(N)>
  859.     if:410:$line$<>PATIO(P)>
  860.     j:421
  861. 430:
  862.     gosub:1240
  863.     if:436:$readf$==
  864.     set:$patios$:
  865.     gosub:1070
  866. 431:
  867.     if:435:$readf$==
  868.     nthstr:$mes$:3:$readf$
  869.     line:#read#
  870.     add:#read#:2
  871.     s:#!$mes$^m
  872.     set:$us$:_
  873.     gosub:2720
  874.     gosub:1240
  875. 432:
  876.     r:^h^m^jPATIO(|433:^jPATIO(
  877.     j:431
  878. 433:
  879.     line:#num#
  880.     if:434:#num#<>#read#
  881.     gosub:2730
  882.     j:431
  883. 434:
  884.     nthstr:$temset$:2:$set$
  885.     if:432:$temset$==1
  886.     gosub:1090
  887.     if:431:$line$==PATIO(N)>
  888.     if:431:$line$==PATIO(P)>
  889.     j:432
  890. 435:
  891.     if:438:#mesnum#==0
  892.     if:410:$fname$==
  893.     j:438
  894. 436:
  895.     if:437:#mesnum#==0
  896.     if:410:$fname$==
  897. 437:
  898.     gosub:1070
  899. 438:
  900.     gosub:1600
  901.     gosub:1091
  902.     strwhere:#num#:＞1:$line$
  903.     if:439:#num#==1
  904.     s:E^m
  905.     r:^j＞
  906.     gosub:1070
  907. 439:
  908.     s:$title$
  909.     r:^j＞
  910.     s:RC ALL^m
  911.     r:^jPATIO(
  912.     j:410
  913. 499:
  914.     fclose:#patioref#
  915. ***** Logout *****
  916. 900:
  917.     fclose:#vflref#
  918.     delete:POST:__visited__forums__list__
  919.     strext:$str$:6:6:$date$
  920.     nthstr:$temset$:11:$set$
  921.     strwhere:#num#:$str$:$temset$
  922.     if:901:#num#==0
  923.     s:GO BILL^m
  924.     r:^j＞
  925.     s:2^m
  926.     r:^j＞
  927. 901:
  928.     strwhere:#num#:[¥^0-9-]:$set$
  929.     if:902:#num#==0
  930.     g:
  931.     q:
  932. 902:
  933.     fread:#setref#:$line$
  934.     if:910:#err#<>0
  935.     if:910:$line$==/END^m
  936.     strwhere:#num#:/:$line$
  937.     if:902:#num#<>1
  938.     strext:$id$:2:9:$line$
  939.     strwhere:#num#:$id$:$i$
  940.     if:902:#num#==0
  941.     add:#num#:8
  942.     div:#num#:9
  943.     nthstr2: :$pw$:#num#:$p$
  944.     set:$set$:
  945.     gosub:1003
  946.     if:902:$temset$<>DLM
  947.     gosub:1000
  948.     if:902:$temset$<>TERMINAL
  949.     gosub:1000
  950.     if:902:$temset$<>TEXTMAIL
  951.     nthstr:$mailset$:2:$line$    
  952.     gosub:1003
  953.     if:902:$temset$<>BINARYMAIL
  954.     gosub:1000
  955.     if:902:$temset$<>DELETEMAIL
  956.     gosub:1000
  957.     if:902:$temset$<>SENDMAIL
  958.     gosub:1000
  959.     set:$set$:$set$---
  960.     if:902:$temset$<>COMMENT
  961.     gosub:1000
  962.     if:902:$temset$<>BILL
  963.     s:LOG
  964.     nthstr:$temset$:2:$line$
  965.     nthstr2:¥r:$temset$:1:$temset$
  966.     set:$set$:$set$-$temset$
  967.     nthstr:$temset$:12:$mainset$
  968.     set:$set$:$set$-$temset$
  969.     nthstr:$temset$:13:$mainset$
  970.     set:$set$:$set$-$temset$
  971.     nthstr:$temset$:14:$mainset$
  972.     set:$set$:$set$-$temset$
  973.     nthstr:$temset$:15:$mainset$
  974.     set:$set$:$set$-$temset$
  975.     set:#go#:0
  976.     exist:903:SCRIPT:PATIO.aps
  977.     j:94
  978. 903:
  979.     add:#go#:256
  980.     j:94
  981. 910:
  982.     set:$set$:$mainset$
  983.     line:#logend#
  984.     s:OFF^m
  985.     add:#logend#:6
  986.     clock:off
  987.     t:911:5:*
  988.     j:912
  989. 911:
  990.     gosub:1090
  991.     strwhere:#num#:¥¥::$line$
  992.     if:920:#num#==0
  993. 912:
  994.     s:OFF^m
  995. 920:
  996.     fclose:#setref#
  997.     nthstr:$temset$:12:$set$
  998.     if:921:$temset$==0
  999.     set:#logstart#:1
  1000.     add:#logend#:99
  1001. 921:
  1002.     set:$fname$:Jnifty log
  1003.     append:#logstart#:#logend#:$fname$
  1004.     nthstr:$temset$:14:$set$
  1005.     if:923:$temset$==0
  1006.     exec:Ccut:LOG:$fname$
  1007.     set:$fname$:_$fname$
  1008. 922:
  1009.     d:10
  1010.     exist:923:LOG:$fname$
  1011.     j:922
  1012. 923:
  1013.     nthstr:$temset$:13:$set$
  1014.     if:925:$temset$==1
  1015.     rename:LOG:$fname$:$fname$.$logdate$
  1016.     if:930:#err#==0
  1017.     set:#usnum#:2
  1018. 924:
  1019.     rename:LOG:$fname$:$fname$.$logdate$*#usnum#
  1020.     if:930:#err#==0
  1021.     add:#usnum#:1
  1022.     j:924
  1023. 925:
  1024.     rename:LOG:$fname$:$fname$.$logdate$.$time$
  1025. 930:
  1026.     firstfile:$fname$:POST:¥^[¥^_@]
  1027.     if:931:$fname$==
  1028.     set:$us$:_?
  1029.     gosub:2700
  1030.     j:930
  1031. 931:
  1032.     firstfile:$fname$:SCRIPT:¥^起動[¥^:]*.aps
  1033. 932:
  1034.     if:990:$fname$==
  1035.     strwhere:#num#:.aps[¥^¥¥:]:$fname$
  1036.     if:933:#num#<>0
  1037.     launch:SCRIPT:$fname$
  1038. 933:
  1039.     nextfile:$fname$
  1040.     j:932
  1041. 980:
  1042.     offline:
  1043.     fclose:#setref#
  1044. 981:
  1045.     set:$set$:
  1046.     append:1:999:Jnifty error log
  1047. 990:
  1048.     nthstr:$temset$:15:$set$
  1049.     if:999:$temset$==1
  1050.     close:
  1051. 999:
  1052.     exit:
  1053. ***************
  1054. * Sub Routine *
  1055. ***************
  1056. ***** Option *****
  1057. *** Setting Option ***
  1058. 1000:
  1059.     set:#num#:0
  1060.     nthstr:$temset$:2:$line$
  1061.     if:1001:$temset$==ON^m
  1062.     if:1002:$temset$<>NEW^m
  1063.     add:#num#:1
  1064. 1001:
  1065.     add:#num#:1
  1066. 1002:
  1067.     set:$set$:$set$-#num#
  1068. 1003:
  1069.     fread:#setref#:$line$
  1070.     nthstr:$temset$:1:$line$
  1071.     ret:
  1072. *** Send SET ***
  1073. 1010:
  1074.     silence:9
  1075.     recvBS:0
  1076.     nthstr:$temset$:2:$set$
  1077.     if:1011:$temset$==0
  1078.     recvBS:2
  1079.     s:SET DLM ON^m
  1080.     r:^j＞
  1081. 1011:
  1082.     nthstr:$temset$:3:$set$
  1083.     if:1019:$temset$==0
  1084.     s:SET MENu OFF^m
  1085.     r:^j＞
  1086.     s:SET PAGe OFF^m
  1087.     r:^j＞
  1088. 1019:
  1089.     ret:
  1090. *** Enter Mail ***
  1091. 1020:
  1092.     set:$mailstate$:1
  1093.     if:1021:$temset$==1
  1094.     set:$mailstate$:2
  1095.     s:GO NEW
  1096. 1021:
  1097.     s:MAIL^m
  1098.     r:^jMAIL>
  1099.     ret:
  1100. *** Enter BBS ***
  1101. 1030:
  1102.     strmatch:$bbs$:¥^[2-578][-¥r0][¥^/0-9]:$bbsline$
  1103.     set:$bbs$:0$bbs$
  1104.     if:1034:$bbs$<>0
  1105.     strmatch:$bbs$:¥^1[014][-¥r0][¥^/0-9]:$bbsline$
  1106.     if:1034:$bbs$<>
  1107.     strmatch:$bbs$:¥^6[01][0-9][-¥r]:$bbsline$
  1108.     if:1033:$bbs$<>
  1109.     strmatch:$bbs$:¥^9[12][-¥r]:$bbsline$
  1110.     set:$bbs$:0$bbs$
  1111.     if:1032:$bbs$<>0
  1112.     strmatch:$bbs$:¥^121[-¥r]:$bbsline$
  1113.     if:1032:$bbs$<>
  1114.     strmatch:$bbs$:¥^13[1-3][-¥r]:$bbsline$
  1115.     if:1032:$bbs$<>
  1116.     strmatch:$bbs$:¥^6/[1-9][-¥r]:$bbsline$
  1117.     if:1031:$bbs$<>
  1118.     strmatch:$bbs$:¥^6/1[0-7][-¥r]:$bbsline$
  1119.     if:1031:$bbs$<>
  1120.     strmatch:$bbs$:¥^9/[12][-¥r]:$bbsline$
  1121.     if:1031:$bbs$<>
  1122.     strmatch:$bbs$:¥^12/1[-¥r]:$bbsline$
  1123.     if:1031:$bbs$<>
  1124.     strmatch:$bbs$:¥^13/[1-3][-¥r]:$bbsline$
  1125.     if:1036:$bbs$==
  1126. 1031:
  1127.     nthstr:$bbs$:1:$bbs$
  1128.     nthstr2:¥r:$bbs$:1:$bbs$
  1129.     j:1035
  1130. 1032:
  1131.     strext:$str$:1:2:$bbs$
  1132.     set:#num#:$str$
  1133.     strext:$str$:3:3:$bbs$
  1134.     set:$bbs$:#num#/$str$
  1135.     j:1035
  1136. 1033:
  1137.     strext:$str$:2:3:$bbs$
  1138.     set:#num#:$str$
  1139.     if:1036:#num#<<1
  1140.     if:1036:#num#>>17
  1141.     set:$bbs$:6/#num#
  1142.     j:1035
  1143. 1034:
  1144.     strext:$str$:1:2:$bbs$
  1145.     set:#num#:$str$
  1146.     set:$bbs$:#num#
  1147. 1035:
  1148.     s:DO BBS/$bbs$^m
  1149.     t:1036:20:◆^m|1036:18歳未満の方は|1036:生年月日を登録後|1039:^jBBS>
  1150. 1036:
  1151.     set:$bbsline$:FAIL
  1152. 1039:
  1153.     ret:
  1154. *** Read BBS ***
  1155. 1040:
  1156.     s:ALL^m
  1157. 1041:
  1158.     r:next>|1042:＞
  1159.     gosub:1090
  1160.     if:1041:$line$<>next>
  1161.     s:^m
  1162.     j:1041
  1163. 1042:
  1164.     gosub:1090
  1165.     if:1041:$line$<>＞
  1166.     ret:
  1167. *** Ready to Enter Forum ***
  1168. 1050:
  1169.     strwhere:#num#:¥¥¥¥m:$line$
  1170.     if:1052:#num#<>1
  1171.     strext:$forum$:3:99:$line$
  1172.     fseek:#vflref#:0
  1173. 1051:
  1174.     fread:#vflref#:$vflline$
  1175.     if:1052:$vflline$==$forum$
  1176.     if:1051:#err#==0
  1177.     nthstr2:¥r:$forum$:1:$forum$
  1178.     gosub:1060
  1179.     j:1059
  1180. 1052:
  1181.     set:$forum$:FAIL
  1182. 1059:
  1183.     ret:
  1184. *** Enter Forum ***
  1185. 1060:
  1186.     s:GO $forum$^m
  1187.     fwrite:#vflref#:$forum$^m
  1188.     set:#roomon#:0
  1189.     set:#libon#:0
  1190. 1061:
  1191.     r:^j＞|1066:下さい◆^m|1065:^jFORUM>|1062:^jmore>
  1192.     gosub:1090
  1193.     if:1061:$line$<>＞
  1194.     nthstr:$temset$:7:$set$
  1195.     if:1066:$temset$==0
  1196. 1062:
  1197.     s:SET MENu OFF
  1198. 1063:
  1199.     s:^m
  1200.     r:^jFORUM>|1063:^jmore>|1066:^j＞
  1201. 1064:
  1202.     s:SET PAGe OFF^m
  1203.     r:^jFORUM>
  1204.     s:SET PAUSE OFF^m
  1205.     r:^jFORUM>
  1206. 1065:
  1207.     s:SEND OFF^m
  1208.     r:^jFORUM>
  1209.     j:1069
  1210. 1066:
  1211.     set:$forum$:FAIL
  1212. 1069:
  1213.     ret:
  1214. *** Enter Patio Room ***
  1215. 1070:
  1216.     s:1^m
  1217.     strwhere:#num#:/PAUSE:$patios$
  1218.     if:1071:#num#<>0
  1219.     r:^jPATIO(
  1220.     s:SET PAUSE OFF^m
  1221. 1071:
  1222.     r:^jPATIO(
  1223.     ret:
  1224. *** Send Untitled ***
  1225. 1080:
  1226.     s:Untitled^m
  1227.     r:^j：
  1228.     s:1^m
  1229.     ret:
  1230. *** Get Line ***
  1231. 1090:
  1232.     line:#num#
  1233.     j:1092
  1234. 1091:
  1235.     line:#num#
  1236.     sub:#num#:1
  1237. 1092:
  1238.     getline:$line$:#num#
  1239.     ret:
  1240. *** Send Message ***
  1241. 1100:
  1242.     gosub:1200
  1243.     if:1109:$fname$==
  1244.     gosub:1400
  1245.     j:1100
  1246. 1109:
  1247.     ret:
  1248. *** Read Message ***
  1249. 1110:
  1250.     set:$temroom$:
  1251.     firstfile:$readf$:POST:¥^[¥^_@]*[A-Z][0-9]?[0-9]?[0-9]?[0-9]?-[4-6][0-9]-
  1252.     gosub:1220
  1253.     set:$room$:$temroom$
  1254.     if:1119:$readf$==
  1255.     gosub:2500
  1256.     j:1110
  1257. 1119:
  1258.     ret:
  1259. *** Search ***
  1260. 1120:
  1261.     exist:1121:SCRIPT:SEArch.aps
  1262.     j:1129
  1263. 1121:
  1264.     set:#roomon#:0
  1265.     fopen:#searef#:SCRIPT:SEArch.aps
  1266. 1122:
  1267.     fread:#searef#:$sealine$
  1268.     if:1123:#err#<>0
  1269.     if:1123:$sealine$==/END^m
  1270.     if:1122:$sealine$<>¥¥m$forum$^m
  1271.     gosub:2200
  1272. 1123:
  1273.     fclose:#searef#
  1274. 1129:
  1275.     ret:
  1276. *** Download ***
  1277. 1130:
  1278.     exist:1131:SCRIPT:DownList.lib
  1279.     j:1139
  1280. 1131:
  1281.     fopen:#downref#:SCRIPT:DownList.lib
  1282. 1132:
  1283.     fread:#downref#:$downline$
  1284.     if:1133:#err#<>0
  1285.     if:1132:$downline$<>¥¥m$forum$^m
  1286.     gosub:2300
  1287. 1133:
  1288.     fclose:#downref#:
  1289. 1139:
  1290.     ret:
  1291. *** Upload ***
  1292. 1140:
  1293.     gosub:1250
  1294.     if:1149:$fname$==
  1295.     gosub:1500
  1296.     j:1140
  1297. 1149:
  1298.     ret:
  1299. ***** Ready to Send or Read Message *****
  1300. *** Forum & Send ***
  1301. 1200:
  1302.     set:$temroom$:
  1303.     firstfile:$fname$:POST:¥^[¥^_@]*[A-Z][0-9]?[0-9]?[0-9]?[0-9]?-[0-9]
  1304. 1201:
  1305.     if:1209:$fname$==
  1306.     nthstr:$temforum$:1:$fname$
  1307.     if:1202:$temforum$<>$forum$
  1308.     nthstr:$temroom$:2:$fname$
  1309.     strmatch:$str$:[0-9]+:$temroom$
  1310.     set:#num#:$str$
  1311.     if:1209:#num#<<21
  1312. 1202:
  1313.     nextfile:$fname$
  1314.     j:1201
  1315. 1209:
  1316.     ret:
  1317. *** Forum & Same Room & Read ***
  1318. 1210:
  1319.     firstfile:$readf$:POST:¥^[¥^_@]*[A-Z][0-9]?[0-9]?[0-9]?[0-9]?-[4-6][0-9]-
  1320. 1211:
  1321.     gosub:1220
  1322.     if:1219:$readf$==
  1323.     if:1219:$room$==$temroom$
  1324.     nextfile:$readf$
  1325.     j:1211
  1326. 1219:
  1327.     ret:
  1328. *** Forum & Read & Sub ***
  1329. 1220:
  1330.     if:1229:$readf$==
  1331.     nthstr:$temforum$:1:$readf$
  1332.     if:1221:$temforum$==$forum$
  1333.     nextfile:$readf$
  1334.     j:1220
  1335. 1221:
  1336.     nthstr:$temroom$:2:$readf$
  1337.     strext:$str$:1:1:$temroom$
  1338.     strext:$temroom$:2:2:$temroom$
  1339.     if:1229:$str$==4
  1340.     set:$temroom$:1$temroom$
  1341.     if:1229:$str$==5
  1342.     set:$temroom$:20
  1343. 1229:
  1344.     ret:
  1345. *** Patio & Send ***
  1346. 1230:
  1347.     firstfile:$fname$:POST:¥^[A-Z][A-Z][A-Z][0-9][0-9][0-9][0-9][0-9]-1-
  1348. 1231:
  1349.     if:1232:$fname$==
  1350.     nthstr:$patio$:1:$fname$
  1351.     if:1232:$patioi$==$patio$
  1352.     nextfile:$fname$
  1353.     j:1231
  1354. 1232:
  1355.     ret:
  1356. *** Patio & Read ***
  1357. 1240:
  1358.     firstfile:$readf$:POST:¥^PT_[A-Z][A-Z][A-Z][0-9][0-9][0-9][0-9][0-9]-[49][19]-
  1359. 1241:
  1360.     if:1249:$readf$==
  1361.     strext:$patio$:4:11:$readf$
  1362.     if:1249:$patioi$==$patio$
  1363.     nextfile:$readf$
  1364.     j:1241
  1365. 1249:
  1366.     ret:
  1367. *** Library ***
  1368. 1250:
  1369.     firstfile:$fname$:POST:¥^[¥^_@]+-LIB[0-9]
  1370. 1251:
  1371.     if:1259:$fname$==
  1372.     nthstr:$temforum$:1:$fname$
  1373.     if:1252:$temforum$==$forum$
  1374.     nextfile:$fname$
  1375.     j:1251
  1376. 1252:
  1377.     nthstr:$uplib$:2:$fname$
  1378.     strext:$uplib$:4:5:$uplib$
  1379. 1259:
  1380.     ret:
  1381. ***** Send Text Mail *****
  1382. 1300:
  1383.     if:1301:$temset$==$mailstate$
  1384.     gosub:1020
  1385. 1301:
  1386.     if:1310:#sendmexp#<>1
  1387.     s:MEXP^m
  1388.     set:#sendmexp#:2
  1389.     r:^jMAIL>
  1390. 1310:
  1391.     s:COMpose^m
  1392.     strext:$mailto$:4:999:$mesline$
  1393.     r:行頭で/E）^m^j|1311:300行迄です)^m^j
  1394. 1311:
  1395.     s:$mesline$
  1396.     strwhere:#num#:,¥¥r:$mailto$
  1397.     if:1312:#num#==0
  1398.     nthstr2:¥r:$mailto$:1:$mailto$
  1399.     fread:#mesref#:$mesline$
  1400.     set:$mailto$:$mailto$$mesline$
  1401.     j:1311
  1402. 1312:
  1403.     gosub:2000
  1404.     r:$waitt$|1313:終了)^m^j|1399:^jMAIL>
  1405.     gosub:1080
  1406.     r:^j：|1399:^jMAIL>
  1407. 1313:
  1408.     d:2
  1409.     set:$mailto$:$id$
  1410.     s:$id$^m
  1411.     r:^j：
  1412.     s:1^m
  1413.     r:^j：
  1414.     s:^m
  1415.     r:^jMAIL>
  1416. 1399:
  1417.     ret:
  1418. ***** Send Message in Forum *****
  1419. 1400:
  1420.     nthstr:$room$:2:$fname$
  1421.     if:1402:#roomon#==2
  1422.     nthstr:$temset$:8:$set$
  1423.     if:1401:$temset$==0
  1424.     if:1401:#roomon#==1
  1425.     s:MES^m
  1426.     r:^j＞
  1427. 1401:
  1428.     s:MES $room$^m
  1429.     r:^jCCS(|1403:^j＞|1403:^jFORUM>
  1430.     j:1410
  1431. 1402:
  1432.     s:RX $room$^m
  1433.     r:せん◆^m^j|1410:−^m^jCCS(
  1434. 1403:
  1435.     set:$us$:_?
  1436.     gosub:2700
  1437.     gosub:1200
  1438.     if:1403:$temroom$==$room$
  1439.     j:1499
  1440. 1410:
  1441.     set:#roomon#:2
  1442.     gosub:1700
  1443.     gosub:1200
  1444.     if:1411:#fail#==1
  1445.     r:$waitt$|1411:^jCCS(
  1446.     gosub:1080
  1447.     r:^jCCS(
  1448. 1411:
  1449.     if:1410:$temroom$==$room$
  1450.     gosub:1210
  1451.     if:1499:$readf$==
  1452.     gosub:2510
  1453. 1499:
  1454.     ret:
  1455. ***** Ready to Upload to Library *****
  1456. 1500:
  1457.     gosub:1800
  1458.     if:1599:#fail#==1
  1459.     if:1501:#libon#==1
  1460.     nthstr:$temset$:9:$set$
  1461.     if:1501:$temset$==0
  1462.     s:LIB^m
  1463.     set:#libon#:1
  1464.     r:^j＞
  1465. 1501:
  1466.     s:LIB $uplib$^m
  1467.     set:$lib$:$uplib$
  1468.     r:せん◆^m^j|1510:^jLIB>
  1469.     fclose:#mesref#
  1470. 1502:
  1471.     set:$us$:_?
  1472.     gosub:2700
  1473.     gosub:1250
  1474.     if:1599:$fname$==
  1475.     if:1502:$uplib$==$lib$
  1476.     j:1599
  1477. 1510:
  1478.     gosub:1900
  1479. 1599:
  1480.     ret:
  1481. ***** Send Message in Patio *****
  1482. 1600:
  1483.     if:1699:$fname$==
  1484. 1601:
  1485.     gosub:1700
  1486.     gosub:1230
  1487.     if:1600:#fail#==1
  1488.     r:$waitt$|1600:^jPATIO(
  1489.     gosub:1080
  1490.     r:^jPATIO(
  1491.     j:1600
  1492. 1699:
  1493.     ret:
  1494. ***** Comment or Message? *****
  1495. 1700:
  1496.     set:#fail#:0
  1497.     nthstr:$mes$:3:$fname$
  1498.     if:1702:$mes$==
  1499.     strwhere:#num#:70[0-9][0-9][0-9]:$mes$
  1500.     if:1702:#num#==1
  1501.     s:RE $mes$^m
  1502.     r:下さい◆^m^j|1701:◆^m^j|1703:行頭で/E）^m^j
  1503.     j:1710
  1504. 1701:
  1505.     nthstr:$temset$:10:$set$
  1506.     if:1710:$temset$==0
  1507. 1702:
  1508.     s:SAY^m
  1509.     r:^j：|1710:◆^m
  1510.     s:1^m
  1511.     r:行頭で/E）^m^j
  1512. 1703:
  1513.     fopen:#mesref#:POST:$fname$
  1514.     gosub:2000
  1515.     j:1799
  1516. 1710:
  1517.     set:#fail#:1
  1518.     set:$us$:_?
  1519.     gosub:2700
  1520. 1799:
  1521.     ret:
  1522. ***** Check Upload File *****
  1523. 1800:
  1524.     set:#fail#:0
  1525.     fopen:#mesref#:POST:$fname$
  1526.     fread:#mesref#:$mesline$
  1527.     strwhere:#num#:#!FN¥¥::$mesline$
  1528.     if:1810:#num#<>1
  1529.     strext:$upfname$:5:99:$mesline$
  1530.     strwhere:#num#:B¥¥::$upfname$
  1531.     if:1801:#num#<>1
  1532.     strext:$upfname$:3:99:$upfname$
  1533.     ftype:b
  1534. 1801:
  1535.     nthstr2:¥r:$upfname$:1:$upfname$
  1536.     exist:1802:$upfname$
  1537.     j:1810
  1538. 1802:
  1539.     fread:#mesref#:$mesline$
  1540.     strwhere:#num#:#!TT¥¥:[¥^¥r]:$mesline$
  1541.     if:1810:#num#<>1
  1542.     strext:$dataname$:5:99:$mesline$
  1543.     fread:#mesref#:$mesline$
  1544.     strwhere:#num#:#!KY¥¥:[¥^¥r,]:$mesline$
  1545.     if:1899:#num#==1
  1546. 1810:
  1547.     fclose:#mesref#
  1548.     set:#fail#:1
  1549.     set:$us$:_?
  1550.     gosub:2700
  1551. 1899:
  1552.     ret:
  1553. ***** Upload to Library *****
  1554. 1900:
  1555.     s:UPLoad TYPE:BIN PROT:BPL^m
  1556.     strext:$mesline$:5:99:$mesline$
  1557.     nthstr2:¥r:$mesline$:1:$mesline$
  1558.     r:^j：|1920:^jLIB>
  1559.     s:$dataname$
  1560.     set:#keynum#:1
  1561.     r:^j：
  1562.     s:1^m
  1563.     r:^j：
  1564. 1901:
  1565.     nthstr2:,:$key$:#keynum#:$mesline$
  1566.     if:1902:$key$==
  1567.     s:$key$^m
  1568.     add:#keynum#:1
  1569.     r:^j：
  1570.     s:1^m
  1571.     r:^j：|1903:行頭で/E)^m
  1572.     j:1901
  1573. 1902:
  1574.     s:^m
  1575.     r:行頭で/E)^m^j
  1576. 1903:
  1577.     gosub:2000
  1578.     r:^j：
  1579.     s:1^m
  1580.     gosub:2100
  1581.     r:LIB>
  1582. 1910:
  1583.     gosub:1250
  1584.     if:1999:$fname$==
  1585.     if:1999:$uplib$<>$lib$
  1586.     gosub:1800
  1587.     if:1910:#fail#==1
  1588.     j:1900
  1589. 1920:
  1590.     fclose:#mesref#
  1591. 1921:
  1592.     set:$us$:_?
  1593.     gosub:2700
  1594.     gosub:1250
  1595.     if:1999:$fname$==
  1596.     if:1921:$uplib$==$lib$
  1597. 1999:
  1598.     ret:
  1599. ***** Send *****
  1600. 2000:
  1601.     fread:#mesref#:$mesline$
  1602.     if:2001:#err#<>0
  1603.     if:2001:$mesline$==/POST^m
  1604.     s:$mesline$
  1605.     j:2000
  1606. 2001:
  1607.     s:/POST*^h^m
  1608.     fclose:#mesref#
  1609.     set:$us$:_
  1610.     gosub:2700
  1611.     ret:
  1612. ***** Upload *****
  1613. 2100:
  1614.     r:^j：
  1615.     s:$upfname$^m
  1616.     r:開始−^m^j
  1617.     d:2
  1618.     ulBplus:$upfname$
  1619.     ftype:m
  1620.     ret:
  1621. ***** Search in Library *****
  1622. 2200:
  1623.     fread:#searef#:$sealine$
  1624.     if:2299:#err#<>0
  1625.     if:2299:$sealine$==/END^m
  1626.     s:LIB^m
  1627.     set:#libon#:1
  1628.     r:^j＞
  1629.     if:2201:$sealine$==^m
  1630.     s:SEArch $sealine$
  1631.     j:2202
  1632. 2201:
  1633.     s:SEArch^m
  1634. 2202:
  1635.     r:^j＞
  1636. 2299:
  1637.     ret:
  1638. ***** Download from Library *****
  1639. 2300:
  1640.     set:$down$:END
  1641.     fread:#downref#:$downline$
  1642.     if:2399:#err#<>0
  1643.     strmatch:$down$:¥^[0-9]+-[0-9]+:$downline$
  1644.     if:2399:$down$==
  1645.     nthstr:$lib$:1:$down$
  1646.     if:2301:#libon#==1
  1647.     nthstr:$temset$:9:$set$
  1648.     if:2301:$temset$==0
  1649.     s:LIB^m
  1650.     set:#libon#:1
  1651.     r:^j＞
  1652. 2301:
  1653.     s:LIB $lib$^m
  1654.     r:せん◆^m^j|2310:^jLIB>
  1655. 2302:
  1656.     set:$down$:END
  1657.     fread:#downref#:$downline$
  1658.     if:2399:#err#<>0
  1659.     strmatch:$down$:¥^[0-9]+-[0-9]+:$downline$
  1660.     if:2399:$down$==
  1661.     nthstr:$temlib$:1:$down$
  1662.     if:2302:$temlib$==$lib$
  1663.     j:2301
  1664. 2310:
  1665.     nthstr:$down$:2:$down$
  1666.     s:DOWn PROT:BPL $down$^m
  1667.     r:^j：|2311:^jLIB>
  1668.     s:1^m
  1669.     r:^j：
  1670.     s:$forum$_$lib$($down$)^m
  1671.     r:開始−^m^j
  1672.     d:2
  1673.     dlBplus:
  1674.     r:^jLIB>
  1675. 2311:
  1676.     set:$down$:END
  1677.     fread:#downref#:$downline$
  1678.     if:2320:#err#<>0
  1679.     strmatch:$down$:¥^[0-9]+-[0-9]+:$downline$
  1680.     if:2320:$down$==
  1681.     nthstr:$temlib$:1:$down$
  1682.     if:2310:$temlib$==$lib$
  1683. 2320:
  1684.     gosub:1910
  1685.     set:$lib$:$temlib$
  1686.     if:2399:$down$==
  1687.     if:2301:$down$<>END
  1688. 2399:
  1689.     ret:
  1690. ***** WSEA *****
  1691. 2400:
  1692.     set:#order#:0
  1693.     fread:#wsearef#:$wsea$
  1694.     if:2499:#err#<>0
  1695.     if:2499:$wsea$==/END^m
  1696.     fread:#wsearef#:$wsealine$
  1697.     if:2499:#err#<>0
  1698.     if:2499:$wsealine$==/END^m
  1699.     if:2410:$wsealine$==MLIST^m
  1700.     s:OPT^m
  1701.     r:^j＞
  1702.     s:5^m
  1703.     r:^j：
  1704.     gosub:1091
  1705.     strwhere:#order#:ペア:$line$
  1706.     strwhere:#num#:MREad-RC:$wsealine$
  1707.     add:#order#:#num#
  1708.     if:2401:#order#==7
  1709.     if:2402:#order#==1
  1710.     s:^m
  1711.     j:2403
  1712. 2401:
  1713.     s:1^m
  1714.     j:2403
  1715. 2402:
  1716.     s:2^m
  1717. 2403:
  1718.     r:^j＞
  1719. 2410:
  1720.     s:MES^m
  1721.     r:^j＞|2499:^jFORUM>
  1722.     set:#roomon#:1
  1723.     line:#start#
  1724.     s:WSEA $wsea$
  1725.     r:^j＞|2411:^jWSEA>
  1726.     if:2499:$wsealine$==MLIST^m
  1727.     j:2420
  1728. 2411:
  1729.     if:2412:$wsealine$<>MLIST^m
  1730.     s:MLIST^m
  1731.     r:^j＞
  1732.     s:E^m
  1733.     r:^jWSEA>
  1734.     j:2416
  1735. 2412:
  1736.     line:#end#
  1737.     set:#limit#:999
  1738.     strmatch:$str$:[0-9]+:$wsealine$
  1739.     if:2413:$str$==
  1740.     set:#limit#:$str$
  1741. 2413:
  1742.     add:#start#:1
  1743.     if:2416:#start#==#end#
  1744.     getline:$line$:#start#
  1745.     strmatch:$str$:[.0-9]+hit¥¥:[1-9]:$line$
  1746.     if:2413:$str$==
  1747.     strext:$str$:1:2:$str$
  1748.     s:MLIST $str$^m
  1749.     r:^j＞|2413:^jWSEA>
  1750.     strmatch:$str$:hit¥¥:[0-9]+:$line$
  1751.     strmatch:$str$:[0-9]+:$str$
  1752.     set:#num#:$str$
  1753.     if:2416:#limit#<<#num#
  1754.     line:#read#
  1755.     s:ALL^m
  1756. 2414:
  1757.     r:^h^m^j＞|2415:^j＞
  1758.     j:2416
  1759. 2415:
  1760.     nthstr:$temset$:2:$set$
  1761.     if:2414:$temset$==1
  1762.     gosub:1090
  1763.     if:2414:$line$<>＞
  1764. 2416:
  1765.     s:E^m
  1766.     r:^j＞|2413:^jWSEA>
  1767. 2420:
  1768.     if:2421:#order#==1
  1769.     if:2421:#order#==7
  1770.     j:2499
  1771. 2421:
  1772.     s:OPT^m
  1773.     r:^j＞
  1774.     s:5^m
  1775.     r:^j：
  1776.     if:2422:#order#==1
  1777.     s:1^m
  1778.     j:2423
  1779. 2422:
  1780.     s:2^m
  1781. 2423:
  1782.     r:^j＞
  1783. 2499:
  1784.     ret:
  1785. ***** Read Message in Forum *****
  1786. 2500:
  1787.     if:2502:#roomon#==0
  1788.     s:RX $room$^m
  1789.     r:せん◆^m^j|2510:−^m^jCCS(
  1790. 2501:
  1791.     set:$us$:_?
  1792.     gosub:2720
  1793.     gosub:1210
  1794.     if:2501:$readf$<>
  1795.     j:2599
  1796. 2502:
  1797.     nthstr:$temset$:8:$set$
  1798.     if:2503:$temset$==0
  1799.     if:2503:#roomon#==1
  1800.     s:MES^m
  1801.     r:^j＞
  1802. 2503:
  1803.     s:MES $room$^m
  1804.     r:^jCCS(|2501:^j＞|2501:^jFORUM>
  1805. 2504:
  1806.     set:#roomon#:2
  1807. 2510:
  1808.     nthstr:$mes$:3:$readf$
  1809.     line:#read#
  1810.     add:#read#:2
  1811.     s:#!$mes$^m
  1812.     set:$us$:_
  1813.     gosub:2720
  1814.     gosub:1210
  1815. 2511:
  1816.     r:^h^m^jCCS(|2512:^jCCS(
  1817.     j:2520
  1818. 2512:
  1819.     line:#num#
  1820.     if:2513:#num#<>#read#
  1821.     gosub:2730
  1822.     j:2520
  1823. 2513:
  1824.     nthstr:$temset$:2:$set$
  1825.     if:2511:$temset$==1
  1826.     gosub:1090
  1827.     if:2520:$line$==CCS(N)>
  1828.     if:2511:$line$<>CCS(P)>
  1829. 2520:
  1830.     if:2510:$readf$<>
  1831. 2599:
  1832.     ret:
  1833. ***** Read Title in Forum *****
  1834. 2600:
  1835.     nthstr2:/:$temroom$:#num#:$roomline$
  1836.     if:2699:$temroom$==
  1837. 2601:
  1838.     nthstr2:,:$room$:1:$temroom$
  1839.     if:2602:#roomon#==0
  1840.     s:RX $room$^m
  1841.     r:$waitr$|2607::0−^m^jCCS(|2607:せん◆^m^j|2604:−^m^jCCS(
  1842.     j:2607
  1843. 2602:
  1844.     nthstr:$temset$:8:$set$
  1845.     if:2603:$temset$==0
  1846.     if:2603:#roomon#==1
  1847.     s:MES^m
  1848.     r:^j＞
  1849. 2603:
  1850.     s:MES $room$^m
  1851.     set:#roomon#:2
  1852.     r:^jCCS(|2607:$waitr$|2607::0−^m^jCCS(|2606:せん◆^m
  1853. 2604:
  1854.     s:$title$^m
  1855. 2605:
  1856.     r:^j＞|2607:^jCCS(
  1857.     s:RC ALL^m
  1858.     j:2605
  1859. 2606:
  1860.     set:#roomon#:0
  1861. 2607:
  1862.     strwhere:#num#:,:$temroom$
  1863.     add:#num#:1
  1864.     strlen:#length#:$temroom$
  1865.     strext:$temroom$:#num#:#length#:$temroom$
  1866.     if:2601:#num#>>1
  1867. 2699:
  1868.     ret:
  1869. ***** Rename File *****
  1870. 2700:
  1871.     rename:POST:$fname$:$us$$fname$
  1872.     if:2709:#err#==0
  1873.     set:#usnum#:0
  1874. 2701:
  1875.     add:#usnum#:1
  1876.     rename:POST:$fname$:$us$#usnum#_$fname$
  1877.     if:2701:#err#<>0
  1878. 2709:
  1879.     ret:
  1880. 2710:
  1881.     set:$us$:_
  1882.     rename:SCRIPT:$fname$:$us$$fname$
  1883.     if:2719:#err#==0
  1884.     set:#usnum#:0
  1885. 2711:
  1886.     add:#usnum#:1
  1887.     rename:SCRIPT:$fname$:$us$#usnum#_$fname$
  1888.     if:2711:#err#<>0
  1889. 2719:
  1890.     ret:
  1891. 2720:
  1892.     set:$ranamed$:$us$$readf$
  1893.     rename:POST:$readf$:$us$$readf$
  1894.     if:2729:#err#==0
  1895.     set:#usnum#:0
  1896. 2721:
  1897.     add:#usnum#:1
  1898.     set:$ranamed$:$us$#usnum#_$readf$
  1899.     rename:POST:$readf$:$us$#usnum#_$readf$
  1900.     if:2721:#err#<>0
  1901. 2729:
  1902.     ret:
  1903. 2730:
  1904.     rename:POST:$ranamed$:_?$readf$
  1905.     if:2739:#err#==0
  1906.     set:#usnum#:0
  1907. 2731:
  1908.     add:#usnum#:1
  1909.     rename:POST:$ranamed$:_?#usnum#_$readf$
  1910.     if:2731:#err#<>0
  1911. 2739:
  1912.     ret:
  1913.